Міністерство освіти і науки України
Національний університет “Львівська політехніка”
Кафедра інформаційних систем та мереж
ЗВІТ
про виконання лабораторної роботи № 6
“МАСИВИ ДАНИХ”
з дисципліни “Основи програмування”
Мета роботи:
Набуття практичних навиків у роботі з масивами, особливостями їх
оголошення, організації, ініціалізації та алгоритмами обробки масивів даних.
Умова завдання:
1.Скласти програму, у якій описати одновимірний масив цілих чисел i ввести в нього довільні значення з клавіатури. Обробити цей масив згідно з індивідуальним завданням:
5). Найти максимальний і мінімальний елементи масиву та поміняти їх місцями.
2. Випадковим чином (використати функцію Random або Random(х)) утворити масив або матрицю відповідного розміру. Виконати два завдання з номерами згідно схеми: 9. )Знайти суму елементів першої половини масиву Х(10).
10.) Знайти найменший елемент матриці Х(4,4) і записати нулі в цю стрічку
і стовпець, де він знаходиться.
1. Program Matrix_Input_output;
uses crt;
const
k=6;
var
l,i,max,min,imax,imin :integer;
B: array[1..k] of integer;
begin
l:=0;
{Виводимо матрицю на екран}
Write('Введіть елементи: ');
for i:=1 to k do
read (B[i]);
Writeln;
max:=B[1];
imax:=1;
min:=B[1];
imin:=1;
for i:=1 to k do
if B[i]>max then
begin
max:=B[i];
imax:=i;
end
else
if B[i]<min then
begin
min:=B[i];
imin:=i;
end;
l:=B[imax];
B[imax]:=B[imin];
B[imin]:=l;
Writeln('Мaксимальний елемнт = ',max,'');
Writeln('Мінімальний елемент масиву = ',min,'');
Writeln('pozition Мaксимальний елемнт = ',imax,'');
Writeln('pozition Мінімальний елемент масиву = ',imin,'');
for i:=1 to k do
writeln( B[i],'');
end. 2. Program LZ;
uses crt;
const
N=10;
var
i,j,b :integer;
s:real;
x: array[1..n] of integer;
begin
clrscr;
randomize;//ініціалізація генер вип чисел
b:= round (n/2); //округлення до найблищого цілого числа з real в integer
for i:=1 to n do
X[i]:=random(11);// заповнення масиву випадковими числами
for i:=1 to b do
S:=S+X[i];
WriteLn('Сума всіх чисел першої половини масиву = ', S);
writeln;
for i:=1 to n do
write(x[i],' '); // вивід на екран елементів масиву
ReadKey;
end. 3. Program minMassiv;
const n=5; m=5;
var
A : array[1..n, 1..m] of integer;
i, j, MinI, MinJ : integer;
begin
{Заповним МАтрицю випадковими числами}
Randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j] := Random(100);
{Виводимо матрицю на екран}
WriteLn('Начальная матрица: ');
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:3,' ');
WriteLn
end;
{знаходимо індекси наймешого елемента стовпця і рядка}
MinI:=1;
MinJ:=1; {спочатку приймаємо за мінімальний елемент значенняA[1,1]}
for i:=1 to n do
for j:=1 to m do
if A[i,j] < A[MinI,MinJ] then begin
MinI := i; MinJ := j;
end;
WriteLn('Найменший елемент ', A[MinI,MinJ], ' знайден в ',MinI,' рядку ',MinJ, 'стовпчику.' );
{обнулим MinI рядок}
for j:=1 to m do A[MinI, j] := 0;
{обнулим MinJ стовпець}
for i:=1 to n do A[i,MinJ] := 0;
{вивидемо матрицю на екран}
WriteLn('отримана матриця: ');
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:3,' ');
WriteLn
end;
Readln;
end.
1.
/
2. /
Висновки:
У ході даної лабораторної роботи я набула практичних навиків у роботі з масивами, особливостями їх оголошення, організації, ініціалізації та алгоритмами обробки масивів даних.
/
